Top 10k strings from Simple Business Accounts (1984)(Flowchart).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 F$-O)+"."+F$(
5 H$(D,I)+256
4 G$(O)="N":
3 h$(d,i)+256
2 w1,v1-Q*(W1=M
2 m,s;" BALANCES FROM PREVIOUS WEEK ";
2 k,s;" CASH IN HAND :
2 h$(y,r)>15
2 f$(o)<"0")
2 R;" MEMORY ";
2 OAD DATA OFF ";:
2 I+Q*(W1=M)):
2 H$(Z)=I$(O
2 H$(D,I)+D*D*
2 F$-O);".";f$(
2 (f$(o)>"9"
2 ((T+R)/256
2 (((T-65536
2 " BANK BALANCE :
2 ` ";:
1 x-o);".";f$(x-r
1 x-O);".";F$(x-R);
1 w,v;"INVALID ":
1 w,v-(D$(N)="/");d$:
1 w,v+u;" ":
1 u=u+R*(u<(x-R)):
1 tE=(F$(Z)="-"):
1 t=t+(f$(z)="
1 t=((w1-m)+((d-R)*(v1>i
1 r;"TOTL AMOUNT:";
1 r;"ITEM:";
1 r;"ENTRY OK ?";
1 r;" START THE TAPE ";
1 r;" MEMORY FULL ":
1 r;" ** PLEASE WAIT A MOMENT ** ":
1 m,r;" WEEK NUMBER :
1 m,r;" ENTER WEEK NO/YEAR:
1 l,c-r;h$(t-(d-r)*(t>(d-r)),p-q*(t<d)
1 k,r;" NO. ENTRIES :
1 k,c-r;"DATE:";
1 j,c-r;"(DD/MM/YY)":
1 i-L*(H$(D,2
1 i,r;" SAVING DATA :
1 i,r;" READY TO SAVE?:
1 i,r;" READY TO LOAD ? :
1 i,r;" LOADING DATA ":
1 i,c-r;"PARTICULARS:":
1 h$(t-(E+R)*(T>E+R),R+Q*(t>E+R)
1 h$(d,q)-D-N;" ";
1 h$(d,q)-C+R;" ":
1 h$(d,q))>1020
1 h$(d,m);" ";
1 h$(d,m))+"/"+
1 f$=f$((f$(N)>"9"
1 f$-o)+"."+f$(
1 f$(z)="0":
1 f$(z)="-")*(ZX-O-
1 f$(z)=" ":
1 f$(z)+(f$(z)="
1 f$(x-r)="-"
1 f$(x-n)+(a+l-
1 f$(x-n))*(f$(x-o)="-"
1 f$(x)="-")):
1 f$(u+R)=a$:
1 f$(n)<"0")
1 f$(R)-ZY)+(f$(R)
1 f$(R)-ZY)*P+
1 f$(O)<"0"))*(
1 f$(O)-ZY)):
1 f$(N)<"0")+N
1 f$(N)<"0"))*((
1 e+r)+" "+F$(
1 d$=d$+"0"+f$(r):
1 d$="0"+f$(r)+"/":
1 d$=" ":
1 d$(R))+" "+b$(
1 d$(O)*N)+" "+
1 d$(N)>ZU-R)
1 d$(N)<ZX)):
1 d$(N)+ZU*(
1 c,r;" On Error type GOTO menu ":
1 ^(m-z))))):
1 ZU-(A$="Y")
1 Z+M,R;h$(Z);
1 W1>M)+(E+R)*(
1 W1=M)-(D-R)*(
1 W,V;" ";
1 T=((W1-m)+((d-r)*(V1>I
1 STOCK :WAGES 1 RENT :WAGES 2 RATES T
1 SBA 6B(#6B{
1 S;" (PRESS
1 S,R;H$(D+R,
1 S+"PASSWORD ":
1 R;h$(w1-m,v1
1 R;"FIRST SELECT";
1 R;" REWIND,AND PLAY TO VERIFY ":
1 R;" REORGANISING ":
1 Q,L;" DATE CORRECT? :
1 Q);".";f$(P
1 Q);".";F$(P
1 P,S;" LAST WEEK NO.:
1 P,M;" YOU ARE NOT AUTHORISED ";
1 P,C-O;" CASH/CHEQUE ";
1 O,D+P;"WK. ";
1 NTER AMOUNTS INPUT & OUTPUT ";
1 M,S;" THERE ARE NO PREVIOUS BALANCES ";
1 M,S;" RETURN TO MENU, THEN SELECT ";
1 M,R;" RETURN TO MENU ";
1 M,R;" HAVE YOU SAVED DATA ?:
1 M,R;" ";
1 M,K;" INCORRECT PASSWORD ":
1 M,I;" ENTER PASSWORD ":
1 M,D+R;" IN ITEM ORDR ";
1 L,c;"ITEM WITH";
1 L,L;" ENTER DATE (DD/MM/YY) ":
1 K,c;"ARROW KEYS";
1 K,S;" IN MEMORY,ARE THEY RECORDED ON ";
1 K,P;" TRY AGAIN ":
1 K,D;" IN ITEM ORDER ";
1 J,c;"THEN PRESS";
1 J,L;"INVALID ENTRY TRY AGAIN":
1 INISH PROGRAM (SAVE FIRST) ":
1 I,zw;"""ENTER""":
1 I,s;" TO LOAD IN LAST WEEKS' DATA ":
1 I,G+Q;" CASH/CHQ ";
1 I,"m";R;d$:
1 I,"M";R;D$:
1 I+Q*(Ta>(E+R)))+" = ":
1 I+Q*(TA>(E+R)))+" = ":
1 I+Q*(T>E+R))=f$:
1 H,c-r;"`":
1 H$(y,R)>(e+r)),R+Q*(
1 H$(y,R)>(E+R))):
1 H$(y,R)>(E+R))
1 H$(y,R)>(C+L))
1 H$(y,R)=24
1 H$(y,R)-(E+R)*(
1 H$(y,O)+"/"+
1 H$(y,D+N)="A"
1 H$(Z,R)>H$(Z+R,R)
1 H$(Z+R)=G$:
1 H$(Z)=H$(Z+R):
1 H$(Y,R)>ZW+L)
1 H$(Y,R)>R)
1 H$(Y,R)>15
1 H$(Y,R)=ZW+N
1 H$(Y,R)=D+P
1 H$(Y,R)<ZW+N
1 H$(Y,R)<ZW+K)
1 H$(Y,R)-(E+R)*(
1 H$(D,Q)-R:
1 H$(D,Q)-D-O;
1 H$(D,Q))-R
1 H$(D,N)=S)):
1 H$(D,N)=R)-(C+L)*(
1 H$(D,N)))-A*(
1 H$(D,M)>Q)):
1 H$(D,M)=G$(ZW+O):
1 H$(D,M);C$(
1 H$(D,M);" ";
1 H$(D+R)=F$:
1 G,S;" NEW WEEK NO .:
1 G,M;" TO ACCESS THIS FILE ":
1 G,D;" IN ORDER ENTD ";
1 G,C-R;"CASH OR CHQE";
1 G$(R)="R")
1 G$(O)="N")
1 G$(O)="H":
1 G$(O)="A":
1 G$(D+N)=a$:
1 F$=H$(C-O,R
1 F$=H$(C-O,G
1 F$=" "+F$(
1 F$*(H$(Y,C-R)="H")
1 F$*(H$(Y,C-R)="A"):
1 F$(Z)>ZU-M
1 F$(Z)-B+O)
1 F$(Z)+(F$(Z)="
1 F$(R)="0":
1 F$(R)<"0")
1 F$(O)<"0")
1 EW WEEK (OR PERIOD) START ";
1 EPORTS ON ";:
1 EEK NO :";
1 E,s;" ENTRIES OK ? :
1 E,C;" ITEM ORDR ";
1 E+R)+" "+F$(
1 D,N;" THE FILE HAS BEEN ERASED ":
1 D,G;" ";D$;" BAUD ";:
1 D,E;" WEEKLY BALANCE ";
1 D+O,E;" WEEKLY BALANCE ":
1 D+O*(H$(D,R)=
1 D+O)+" "+D$:
1 D$(R)=G$(R)
1 D$(R)*65536
1 Created with Ramsoft MakeTZX
1 C-R,C-R;"NEARLY FULL":
1 C-R,C-R;" FULL "
1 C,O;" (Select Option By
1 C$="TOTAL CHQE =":
1 C$="TOTAL CASH = ":
1 C$="TOTAL "+H$(Ta-(E+R)*(Ta>(E+R)),R+Q*(Ta>(E+R))
1 C$="TOTAL "+H$(TA-(E+R)*(TA>(E+R)),R+q*(TA>(E+R))
1 C$="ITEM PARTICULARS VALUE CA/CH":
1 C$="--------------------------------":
1 C$=" "+H$(D+R,
1 B$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":
1 AVE DATA ON ";:
1 AUD RATE:":
1 ATE : CHANGE CURRENT DATE ";
1 ARAMETER CHANGES AND UPDATES";
1 A$-A-M-N*(A$="8")-(A$="5"))
1 ;"S B A COPYRIGHT FLOWCHART LTD";'';:
1 ;" ";C$
1 -R*(H$(D,O)=
1 )="WEEK "+
1 )="BUSINESS ACCOUNTS":
1 )+" "+H$(y,C-R)
1 )+" "+H$(Y,C-R):
1 ))+" "+h$(y,l
1 (p-q*(t<d))+j):
1 (f$(n)>"9"
1 (f$(O)>"9"
1 (f$(N)>"9"
1 (M+E+(H$(D,R)=
1 (H$(y,D+N)="H"
1 (H$(Y,C-R)=G$(O)
1 (G$(R)="W"
1 (G$(R)="S"
1 (G$(R)="R"
1 (G$(R)="P"
1 (G$(R)="N"
1 (F$(O)=" "
1 ((f$(r)=" "
1 ((f$(R)>"0"
1 ((T+R)-256
1 ((F$(R)>"9"
1 ((F$(O)>"9"
1 (((ZV-L)*O^(
1 #I;"*"+H$(Z):
1 "ZX-TYPE PRINTER ":
1 "TODAYS' ENTRIES","WEEKS' ENTRIES","RECEIPTS & TAKINGS","PAYMENTS TO BANK","STOCK PAYMENTS","NON STOCK PAYMENTS","BANK REPORT","CASH REPORT"
1 "STOCK :WAGES 1","RENT :WAGES 2","RATES :PAYE","LGT+HEAT:TO SELF","CLEANING:PENSION","STAT+PRT:SUNDRY 1","CARRIAGE:SUNDRY 2","POSTAGES:SUNDRY 3","REPAIRS :TO BANK","PHONE :CHARGES","INSURNCE:CASH DRW","ADVERTS :TAKINGS1","CAPT EX :RECPTS 1","EXPENSES:TAKINGS2","PETROL :RECPTS 2"
1 "RS232-TYPE PRINTER":
1 "NOW VERIFY":
1 "MICRODRIVE 1 ";:
1 "CASSETTE TAPE ";:
1 "CASH IN HAND B/F","TAKINGS & RECEIPTS","CASH DRWGS"," TOTAL =","STOCK PAYMENTS","OTHER PAYMENTS","PAID TO BANK","CASH IN HAND C/F ="
1 "BANK BAL B/F","TO BANK"," TOTAL =","CASH DRAWINGS","STOCK PAYMENTS","OTHER PAYMENTS","BANK CHARGES","BALANCE C/F"
1 "A"+z,ZT-ZT*(z=S
1 " CHEQUE ":
1 " "
1 to return to Menu) ":
1 WEEK NUMBER :
1 RETURN TO MENU ":
1 REPORTS : Select by
1 PARAMETERS";C$(
1 NO.OF ENTRIES :
1 MENU";C$(
1 LOAD DATA OFF ";
1 ITEM DESIGNATIONS ";
1 HARD COPY ? :
1 ENTER TRANSACTION no.";
1 DATE OF SAVING:
1 DATA LOADED OK ";
1 CANCELLED ";
1 CANCELLED "
1 ALTER ITEM DESIGNATIONS
1 TO CONTINUE
1 SAVE DATA ON ";
1 ":